GFA-AMIGAB
USING
MOSEK
VERSION
LOESCH
FUELL
SUFFIX
SUFFIX2
SUFFIX3
SRG22
SHORP0
SHORP2
SHORP1
SHORP6
SHORP5
SHORP4
SHORP3
CHECK
WINTEXT
FEHLER
FREMEM
DATEIGROESSE
VERZNAME
INDNR
VERZNAME
LABEL
FELDNAME
FENAM
FINDEX
DRUCK
FELDIND0
FELDIND1
FELDIND2
X	FELDINDEX
FELDIND
VERZSIZE
VERZBLKS
INDNR0
INDNR1
INDNR2
INDNR
LRAND
SATZLAENGE
SATZNR
RECORD
RICHTUNG
SORT1
SORT2
DUMMY
MAXANZAHLFELDER
RECSEL
FORMAT
DRUCK
FELDERJN
SORTIERT
EINGERICHTET
RELOFFEN
OPENREQ
COUNTER
ANZAHLINDEX
GEFSATZ
SPALTE
GEFUNDEN
SUCHEN
FOUND
SORTF
ABBRUCH
DOPPEL
DUMMY1
DUMMY2
SEARCH
CHECK
GESPEICHERT
WINDOW6
BUTTON
ZEILEN
DUMMY
SOERIERT
SORIERT
AGAIN
EXITPROC
FELDER2
FELDNAMENAENDERN
FENAAE1
FENAAE2
FENAAE3
INDEXF
FELDNAMENSELEKT
EINGABE2
EXITEG
EXITFUNC
NEINL	EXITFUNC2
KARTELESEN
AUSGABE
ENDSUBR
NOCHMAL
SORT.END
DOPEN
INTEXT
LLENDE
WA1	EXITFUNC3
LENDE
VENDE
JAENDE
NEINENDE	EXITFUNC4
DRUCKEN	DAUSGANG1
DRUCKEN70X70	DAUSGANG2
ENDFORM
A4510
EXIT1
EXITSUB
EXITSUB2
EXITSUB3
ENDE.PR4800
ENDS	FEHLEREND
ENDESUBR
GETKEY	EXITFUNC7
GETKE	EXITFUNC6
PWEITER
PR.NEXT
NEXT.NUM
PR4750_ENDE
INWE2
INDEX
ENDE.AENDERN
CTRL.SHIFT.ALT
TITEL
TEXT1
MENAUS
GETDIR
AUSWAHL
EINRICHTEN
LADEN
SCHLIESSEN
DATEILOESCHEN
VERZEICHNIS
EINGABE
DATENAUS
DATSUCH	SORTIEREN
FILTER
DATEI
DFORMAT
LISTE
TAS	MENUESAUS
MENUESAN
TEXT2
TEXT3
DATEINAMEEINGABE
OPENWIN4
GETTEXT
OPENWIN4.BIG
INFO	KOPFZEILE
LOESCHEN	FELDNAMEN
FELDNAMEN2
FELDNAMEN3
WAND2	DATEITEST	REQUESTER
RELEINRICHTEN
OEFFNEN
OEFFNEN2
INPUTROUTINE
SATZSCHREIBEN
CLOSEDATEI
KARTESUCHEN
MODUSSETZEN
SUCHEINGABE
PRUEFEN
KARTELOESCHEN
WEITER2
AENDERN
ETIKETT89X36
ETIKETT70X70
SORTDAT
PAINT4
AUSGANG
LINEFEED
PRINTER
PR200
PR4110
PR4120
PR4125
PR4145
PR4150
PR4115
PR4117
PR4300
PR4350
PR4400
PR4160
PR4500
PR4550
PR4650
PR4700
PR4750
PR4800
PR4450
PR4475
PR4480
PR4490
PR4492
PR4494
PR4540
DFELDER
PR4760
PR4780
PR5000
PR5100
PR5290
PR5200	OPENWIN11
MODUS6
FEHLER
SORTDIR
GETLINE
PINIT
INTEXT
PR4710
PR4720
DRU.PARA.SAVE
DRU.PARA.LOAD
FARBE
INLINE
FARBWAHL
CHOOSE
SORTP
PFIELD
VORGABE
LAENGE
VarioKartei_PRT (rel/indexsequentiell) Version 3.02a
Lothar Berndt, 46446 Emmerich, letzte 
nderung am 16.08.93
Variokartei_PRT, Version 3.02aFF
Variokartei-ScreenF
Variokartei-SchalterF
 Hintergrund mittelgrau
 schwarz
 hellblau
 MaxAnzahl Zeichen Datenfelder
 MaxAnzahl Datens
tze (Karten)
 MaxAnzahl Felder -1 (0-13 = 14 Felder)
AAOOUUSF
 Alle ASCII
 In Sortiervorgabe einsetzen
abcdefghijklmnopqrstuvwxyz!B
 Durch Gro
buchstaben ersetzen
 Umlaut oder Eszet?
 1=Adre
etiketten, 2=Datensatz, 3=Liste
 Recordselektion 3=Alle Datens
 1=80 ZZ, 2=96 ZZ, 3=136 ZZ
.relFF
 (Rel-Datei) Daten
.felFF
 (Seq-Datei) Feldnamen
.indFF
 (Seq-Datei) Werte zum Druck
,SUCHDATEN nicht gefunden, eine Taste dr
ckenF
ERSTE KARTEF
LETZTE KARTEF
Maximale Anzahl erreichtF
Daten ausgeben mit Index auf F
Variokartei-ScreenF
Das geht nicht!Fe
Sicher?F 
Klick auf PRINT oder EXIT
etiketten     F 
Datensatz          F
Liste              F 
Pica,   80 Zeichen F 
Elite,  96 Zeichen F 
Schmal,136 Zeichen F 
Karte suchen       F 
In Feldern suchen  F 
Alle Karten        F 
Fettdruck an       F 
Doppeldruck an     F 
Fett/Doppel aus    F 
Datei 
ffnen oder einrichtenF
%Datei einrichten, Dateinamen eingebenFr
"Datei einrichten, Felder und IndexF
Daten eingebenF
)Daten unsortiert ausgeben, mit Index auf Fe
'Daten sortiert ausgeben, mit Index auf F 
Daten suchen, mit Index auf  Fn
Indexfeld sortierenFd
Datei 
ffnenF
Datei von Diskette l
schenF
BeendenFn
 ESC                  (escape)
hrungszeichen    (quotationmarks)
cksetzen           (reset)
 Initialisieren       (initialize)
[0mFF
 Normaler Zeichensatz (normal character set)
[1mFF
 Fettdruck ein        (boldface on)
[22mF
 Fettdruck aus        (boldface off)
[0wFF
 Normale Zeichenbreite(normal pitch)
[2wFF
 Elite ein            (elite on)
[1wFF
 Elite aus            (elite off)
[6wFF
 Breitdruck ein       (enlarged on)
[5wFF
 Breitdruck aus       (enlarged off)
[4wFF
 Schmaldruck ein      (condensed fine on)
[3wFF
 Schmaldruck aus      (condensed fine off)
[2vFF
 Hochstellen ein      (superscript on)
[1vFF
 Hochstellen aus      (superscript off)
[4vFF
 Tiefstellen ein      (subscript on)
[3vFF
 Tiefstellen aus      (subscript off)
nschrift ein     (letter quality on)
nschrift aus     (letter quality off)
 Doppeldruck ein      (doublestrike on)
 Doppeldruck aus      (doublestrike off)
[72tF
 Blattl
nge 72 Zeilen (set form length 72 lines)
[6qFF
 Perforationssprung 6 Z  (perf skip 6 lines)
DateiF
einrichten F
ffnen     F
schlie
en  F
schen    F
VerzeichnisF
importierenF
exportierenF
sortieren  F
drucken   F
Index neu  F
Ende       F
	DatensatzF 
eingebenF
ausgebenF
suchen  F
Farbe   F
Info    F
ProgrammF
Datei   F
Format  F
Etikett F
Liste   F
Tasten  F
Verzeichnis lesenFa
DatenF
V A R I O K A R T E I FF
 Lothar Berndt  1993FF
NDERNF
 ANFANG
ANFANGF
<<<FN
>>>FN
 ENDE
ENDEF
SCHEN
SCHENF
 GEHE NACH KA.NUMMER
GEHE NACH KA.NUMMERF
 EIN ETIKETT 89x36
EIN ETIKETT 89 X 36F
 EIN ETIKETT 70x70
EIN ETIKETT 70 X 70F
NEINF
ABBRUCHF(
ffnenF
AbbruchF
ABBRUCHF
Das geht nicht!. DieFF
Indexdatei ist sort.FF
Zuerst schie
en, dannF
wieder 
ffnen.FF
*Der Bezugspunkt f
r das erste Etikett ist:FF
&Setzen Sie die Etikettoberkante b
ndigFF
mit der Farbbandoberkante.FF
Dateinamen eingeben: F
Daten/
Daten/
Daten/
InfoF
Kartennummer:F
Satznummer:F
Frei BASIC:"7
  Frei System:"7
Karten belegt:"7
Karten frei:"7
Dateiname:";
    FF
    FF
e  "B
 lesen
 schreiben
Daten/
Dateiname: ";
Die Datei existiert bereits!FF
berschreiben?
  NEIN Fb
Dateiname: ";
Anzahl Felder (1 bis 14)FF
Dateiname: ";
	FeldnamenF
Feldl
ngen bis "7
 11 Punkte default
 Feldnamen
 Feldl
Index festlegenF
 Mit der Eingabe einer FeldnummerFF
!legen Sie fest, welches Feld beimF
ffnen einer Datei das IndexfeldFF
"sein soll. Das Indexfeld kann sp
ter problemlos ge
ndert werden.F
Feldnummer eing. 1 - 
Nur Feldnummer 1 bis"7
	Alles OK?
  NEIN F
 Indexfelder aus Reldatei einlesen
Kartennummer:"7
Frei BASIC:"7
Karten belegt:"7
Karten frei:"7
Dateiname:";
Eingaben OK?F
 NEIN
 ABBRUCH
Gehe nach NummerF
Kartennummer eingeben: F
nur Karte "F
1 bis "7
Karte l
schenFs
Karte l
schen?
ABBRUCH F
Diese Funktion istFF
noch nichtFF
implementiert!FF
Daten suchen im Feld 
Ich suche nach 
, klick auf <<<  <  >  >>>F
 Klick in 1. Fu
zeile
NDERN
 ANFANG
 ENDE
 Karte l
schen nicht implementiert
 Klick in 2. Fu
zeile
 Gehe nach Nr.
 ETIKETT drucken
 ETIKETT drucken
Karte 
ndernF
Karte ge
ndertFF
sortieren?
  NEIN F
Sortiert wird das Feld 
DateinamenFF
BytesF
ckeFF
Verzeichnis lesenFa
DatenF
 scroll ab
 scroll auf
ffnen
 Abbruch
Daten/
Daten/
Daten/
 LIMITW #wnr|,640,54+(m|+1)*8,640,165
Schlie
e DateiF
Dateinamen eingeben: F
Daten/
Daten/
Daten/
Datei:FF
 ist gel
scht.FF
DatenF
Die linke Maustaste dr
ckenF
Daten importierenFn
&Als Feldtrenner brauche ich dezimal 10FF
&Als Satztrenner brauche ich dezimal 10FF
Pfad und Dateinamen "
Bearbeite Satznummer: FF
####!7
Verzeichnis lesenF
DatenF
Die Datei `"
' ist importiert.FF
Linke Maustaste dr
ckenF"
Daten exportierenF
Feldtrenner: F
Satztrenner: F
Pfad und Dateiname "
Bearbeite Satznummer: FF
####!7
Die Datei '"?
' ist in die Datei '"
' exportiert.F
Linke Maustaste dr
ckenFe
Index wechselnF
Feldnummer eing. 1 - 
nur Feldnummer 1 bis "7
Index einlesenF
Sicher?    
  NEIN F
Datens
tze:"7
 Dateiname:";
PAR:F
@ "FF
 Eine Leerzeile f
r PerfSprung
PRT:F
 Normale Zeichenbreite, Zeichensatz
 "F"	 LQ-Modus
 72 Zeilen pro Blatt
  6 Zeilen frei, oberer u. unterer Rand je 3 Z
 Elite ein ,12 Zeichen Zoll
 Schmal ein ,17 Zeichen Zoll
 Fett ein, Doppel aus
 Doppel ein, Fett aus
Ein Etikett 89 X 36 mm druckenF
Drucker OK?
ABBRUCH Fn
Fuer Lochrand-Etiketten Format 89 * 36,1 mm (fuer 5.25 Zoll Disk)
Drucke Etikett "7
 Ausgabekanal f
r Drucker 
ffnen
 Reset Drucker
 LQ-Modus
 Daten
 Return line feed
 Daten in Pica max. 32 Zeichen Zeile
 Return line feed
 Normale Zeichenbreite
 Schmaldruck ein
 Daten max. 55 Zeichen Zeile
 Reset Drucker
Ein Etikett 70 X 70 mm druckenF
Drucker OK?
ABBRUCH Fn
Drucke Etikett "7
 Ausgabekanal f
r Drucker 
ffnen
 Reset Drucker
 LQ-Modus ein
 Schmaldruck ein
WRITE DATA --->F
 2. Zeile R
ckseite
READ ONLY --->FF
 1. Zeile R
ckseite
 Reset Drucker
 LQ-Modus ein
 Elite ein
 Tiefstellen ein
 Daten auf Schmalseite Disk
 Return line feed
 Reset Drucker
 LQ-Modus ein
 Breitdruck ein
 Daten
 Breitdruck aus
 RETURN line feed
 Elite ein
 Daten max. 30 Zeichen Zeile
 Return line feed
 Normale Zeichenbreite
 Schmaldruck ein
 Daten max. 44 Zeichen Zeile
 Reset Drucker
FilterF
JOBSFF
RECORD SELECTIONFF
PRINTF
SAVEFF
ZEICHEN JEFF
ZEILEF
FELDERFF
PARAM.FF
LOADFF
PARAM.FF
ZEICHEN/ZEILEF
DRUCKST
LINKER RANDF
PRINTF
EXITFF
###!7
MARKFF
 JOBS
 Record select
 ZEICHEN/ZEILE
 DRUCKST
 PRINT FELDER
 Mark
 SAVE PARAM.
 LOAD PARAM.
 PRINT
 EXIT
 Karte(n) suchen
 Kartennummer(n), nur RETURN=ENDEFF
Nur 1 bis "7
 unteren Fensterinhalt l
schen
 In Feldern suchen
e  FF
Klick auf PRINT oder EXITF
SUCHDATEN: "
 Alle Karten
 Selektion der Felder
   "FF
###!7
 Ausgabe auf Drucker
#WIEVIELE KOPIEN ? (NUR RETURN=EXIT)F
 Leerzeile
 Anrede
 Leerzeile
 Position bestimmen
@ "Fs
 Vorname
 Nachname
 Stra
 Leerzeile
 PLZ und Ort
farbwahl
Das ProgrammFF
!Von Lothar Berndt, 46446 EmmerichF
7Erstellt im Jahre 1989 - 1993, letzte 
nderung 16.08.93F
-Diese Version a ben
tigt einen DruckertreiberF
/im Verzn. 'devs/printers' auf der StartdisketteF
 Datens
tze pro DateiF
%1 bis 14 Felder pro Datensatz (Karte)F
Feldl
nge 1 bis 62 Zeichen"F
DateiF
Aktuelle Datei..............:";
Dateigr
e in Bytes.........:"7
Feie Bytes Basic............:"7
Anzahl Datens
tze (Karten)..:"7
Anzahl Felder...............:"7
Datensatzl
nge..............:"7
FormatFF
Feldname: "
 Index"
nge: "7
Feldname: "
      "
nge: "7
'Bezugspunkt f
r Etikett 89X36 und 70X70F
Liste druckenF
' Der Bezugspunkt des Endlospapiers ist:F
= Setzen  Sie  die Papieroberkante b
ndig mit der Metall- oderF
= Kunststoffnase des Druckkopfes. Der Listendruck erfolgt for-F
= matiert, das hei
t, da
 die  Perforation  
bersprungen wird.F
= Die erste Formatanweisung  mu
 vom  Programm  aus  erfolgen.F
= Variokartei  f
hrt  einen  Zeilenvorschub aus, in VerbindungF
= mit dem Bezugspunkt sind das insgesammt 3 Leerzeilen auf derF
= ersten Seite.  Die  weitere  Formatierung 
bernimmt dann derF
= Drucker, der dann 66 Zeilen druckt, dann das Papier 6 ZeilenF
ber die Perforation transportiert.FF
 Das Endergebnis ist folgendes:F
= 3  Zeilen frei,  66 Zeilen Daten, 3 Zeilen frei.  Sie k
nnenF
= dann  den rechten Lochrand abrei
en, die Bl
tter trennen undF
= dann  mit  einem  Klammerhefter  den linken Lochrand heften.F
= Das  Endergebnis  ist  eine  Art Heft, zu dem Sie Ihre ListeF
= gemacht  haben. Siehe  auch  VK.dok  und die Datei ProbPerf."FF
-Tastaturbelegung beim eingeben/suchen/
ndern F
8 RETURN       = ein Feld tiefer, leere Felder werden alsFF
2                Leerfelder gesichert ( chr$(32) )!FF
' CURSORTASTEN = ab, auf, rechts, links.F
4 DEL          = l
scht ein Zeichen unter dem Cursor,FF
7                nachfolgende Zeichen r
cken nach links.F
4 BACKSPACE    = l
scht ein Zeichen links vom Cursor,FF
7                nachfolgende Zeichen r
cken nach links.F
= F10          = l
scht das aktuelle Feld (wo der Cursor ist).F
= ESC          = erzwingt den Abbruch der Eingabe im aktuellenF
:                Feld. Da die Felder vorher mit LeerzeichenFF
7                gef
llt wurden, werden leere Felder alsF
6                Leerfelder gesichert (wie bei RETURN)!FF
? SPACE        = schiebt den Text rechts vom Cursor nach rechts.F
? LINKE MAUST. = positioniert den Cursor wo d. Mauszeiger steht.F
! Es ist ein Fehler aufgetreten! |F
 OK | OK | OK FF
+Fataler Fehler, Programm wird neu gestartetF
	RequesterF
 Nein
Anzahl Zeilen-1,Spalte,Zeile,Cursorfarbe,Hintergrundfarbe,Laenge(),dat$()
 RETURN
 BACKSPACE
 F10, aktuelle Zeile l
schen
>  F 
 rechts
 links
'!&FF
Spalte,Zeile,AnzahlZeichen,Cursorfarbe,Hintergrundfarbe,Text$
 Klick in OK
 Klick in ABBR.
 BACKSPACE
'(hF#
 F10, aktuelle Zeile l
schen
 rechts
 links